COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C *********  CONVERTS ALL UPPER TO LOWER CASE, EXCEPT WHEN LETTER IS
C00005 ENDMK
C⊗;
C *********  CONVERTS ALL UPPER TO LOWER CASE, EXCEPT WHEN LETTER IS
C ********* PRECEDED BY THE DOLLAR SIGN($) .
C ********* TYPE A NUM. AFTER INPUT FILE NAME TO CONVERT LOWER TO UPPER. *******
	DIMENSION I(120),J(120)
	DATA N/17179869184/
	MA='A'+N
	MZ='Z'+N
1	FORMAT(' TYPE FILE NAME -- '$)
2	FORMAT(A5,2I)
35	FORMAT(I,120A1)
3	FORMAT(120A1)
11	FORMAT(1X120A1)
4	FORMAT(' TYPE OUTPUT NAME -- '$)
5	FORMAT(' ******** FILE ',A5,'.DAT WAS WRITTEN.*******')
32	FORMAT
	1(' UPPER TO LOWER=0,  LOWER TO UPPER=1.  2ND NUM+ =SCREEN.'/)
33	FORMAT(2I)
	TYPE 1
	ACCEPT 2,NM
	TYPE 32
	ACCEPT 33,MM,ITYP
	TYPE 4
	ACCEPT 2,NMOUT
	CALL IFILE(1,NM)
 	READ(1,3),I
	ISOS=0
	IF(I(1).NE.'0'.OR.I(2).NE.'0')GO TO 34
	ISOS=-1
34	CALL IFILE(1,NM)
  	CALL OFILE(21,NMOUT)
6	IF(ISOS)GO TO 36
	READ(1,3,END=10),I
	GO TO 37
36	READ(1,35,END=10)X,I
37	DO 30 JJ=120,1,-1
30	IF(I(JJ).NE.' ')GO TO 31
31	L=0
 	K=1
9	L=L+1
	M=I(K)
	IF(MM.EQ.0)GO TO 20
	IF(M.GE.MA.AND.M.LE.MZ)GO TO 21
	IF(M.LT.'A'.OR.M.GT.'Z')GO TO 22
	J(L)='$'
	L=L+1
	GO TO 22
21	J(L)=M-N
	GO TO 7
20	IF(M.EQ.'$')GO TO 8
	IF(M.GE.'A'.AND.M.LE.'Z')GO TO 12
22	J(L)=M
C CATCH NON-LETTERS
	GO TO 7
12	J(L)=M+N
C CHANGE TO LOWER CASE.
	GO TO 7
8	K=K+1
	J(L)=I(K)
C '$L' = UPPER CASE.
7	K=K+1
	IF(K.LE.JJ)GO TO 9
	IF(ITYP.NE.0)TYPE 11,(J(K),K=1,L)
	WRITE(21,3)(J(K),K=1,L)
	GO TO 6
10	TYPE 5,NMOUT
	END